home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 26 / AACD 26.iso / AACD / Programming / AllPlaton / Unsorted / Psychedillic2.AMOS / Psychedillic2.amosSourceCode < prev    next >
Encoding:
AMOS Source Code  |  1993-08-15  |  430 b   |  21 lines
  1. Hide 
  2. Dim P(2)
  3. Screen Open 0,320,256,8,0
  4. Curs Off : Flash Off : Paper 0 : Pen 1 : Cls 
  5. Double Buffer 
  6. Autoback 0
  7. Bob Update Off 
  8. Screen Display 0,128,40,320-32,256-32
  9. Palette 0,$F00,$F0,$FF0,$F,$F0F,$FF0,$FFF
  10. Degree 
  11. Set Bob 1,-1,%1,
  12. Set Bob 2,-1,%10,
  13. Set Bob 3,-1,%100,
  14. Do 
  15.   For A=0 To 2
  16.     X=Cos(P(A))*16-16 : Y=Sin(P(A))*16-16
  17.     Bob A+1,X,Y,1
  18.     Add P(A),(A+3)*(A+3)
  19.   Next 
  20.   Screen Swap : Wait Vbl : Cls : Bob Draw 
  21. Loop